home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9105.d64 / opaque dungeons (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 FORT=0TO63:POKE3904+T,0:NEXT:POKE3904,4:POKE3907,4:POKE2041,60:POKE2040,61
  2. 2 POKE53275,255:POKE53280,0:POKE53281,0:FORT=0TO63:READA:POKE3840+T,A:NEXT
  3. 3 PRINT"[147] OPAQUE DUNGEONS ...":PRINT"[159] (C) STIX 1991":POKE198,0:WAIT198,1
  4. 4 DATA ,255,,3,255,192,7,255,224,15,255,240,31,255,248,31,255,248,63,255,252
  5. 5 DATA 63,255,252,63,255,252,63,255,252,63,255,252,63,255,252,63,255,252,63
  6. 6 DATA 255,252,31,255,248,31,255,248,15,255,240,7,255,224,3,255,192,,255,,,,,
  7. 7 M=43000:V=53248:POKEV+39,1:POKEV+40,6
  8. 8 POKEV+21,3:X(0)=87:Y(0)=147:X(1)=80:Y(1)=138:FORT=1TO10:A$(T)="":NEXT
  9. 9 TI$="000000":IFM=50000THENPRINT" ALL DUNGEONS COMPLETED":POKEV+21,0:RUN
  10. 10 FORT=1TO10:FORU=0TO10:A$(T)=A$(T)+CHR$(205+(PEEK(M+10*T+U)AND1)):NEXT:NEXT
  11. 11 PRINT"[144][147]":FORT=0TO10:PRINT"   "A$(T):NEXT:PRINT"[156]"SPC(16)"L"M/1000-42"[150]"S
  12. 12 PRINT"[151]       [146]        ":FORT=0TO12:PRINT" [146] [146]":NEXT
  13. 13 PRINT"               ":POKE1306,160:POKE1318,160:POKE1266,160:POKE1278,160
  14. 14 A=PEEK(56320):B=SGN(AAND16):Y=Y(0):X=X(0)
  15. 15 Y(B)=Y(B)-(1+B)*SGN(AAND2)*1.5+(1+B)*(AAND1)*1.5
  16. 16 X(B)=X(B)-(1+B)*SGN(AAND8)*1.5+(1+B)*SGN(AAND4)*1.5
  17. 17 POKEV,X(0):POKEV+1,Y(0):POKEV+2,X(1):POKEV+3,Y(1)
  18. 18 IF(PEEK(V+31)AND1)THENY(0)=Y:X(0)=X:GOTO17
  19. 19 IFPEEK(V+1)<55THENPRINT" YOU FOUND THE WAY":M=M+1000:S=S+7200-TI:GOTO8
  20. 20 PRINT""SPC(30)TI$:GOTO 14
  21.